home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / UTILITY / PROFILER / TOM07.TST < prev    next >
Encoding:
Text File  |  1989-06-16  |  2.7 KB  |  61 lines
  1.     { Profiler-Testversion zu A:\DEMOS.PAS\TOM07.PAS }  
  2.  
  3. CONST ___ = 26;
  4.    ___2 =2;
  5. VAR __ : INTEGER ;
  6. VAR _ : ARRAY [1..___] OF REAL ;
  7. VAR _2 : ARRAY [1..___2] OF REAL ;
  8. VAR _h : STRING; 
  9. VAR _f : TEXT;
  10. VAR ANZAHL,ZAHL,I:INTEGER;
  11. MUENZE:ARRAY[1..8]OF INTEGER;
  12. PROCEDURE ZERLEGE(ZAHL:INTEGER;MAXIMUM:INTEGER);
  13. VAR I,M:INTEGER;
  14. BEGIN _[11] := _[11] + 1 ;  _2[1] := _2[1] + 1 ;  
  15. FOR I:=2 TO MAXIMUM DO BEGIN _[25] := _[25] + 1 ; 
  16. IF ZAHL-MUENZE[I]>=0 THEN BEGIN _[26] := _[26] + 1 ; 
  17. ANZAHL:=ANZAHL+1;   _[1]:=_[1]+1;  IF ANZAHL<_[2] THEN _[2]:=ANZAHL; 
  18.  IF ANZAHL>_[3] THEN _[3]:=ANZAHL;  ; 
  19. ZERLEGE(ZAHL-MUENZE[I],I);   _[19]:=_[19]+1;  IF I<_[20] THEN _[20]:=I; 
  20.  IF I>_[21] THEN _[21]:=I;    _[10]:=_[10]+1;    _[13]:=_[13]+1; 
  21.  IF ZAHL<_[14] THEN _[14]:=ZAHL;  IF ZAHL>_[15] THEN _[15]:=ZAHL;  ; 
  22.  END  ; 
  23. ;   _[19]:=_[19]+1;  IF I<_[20] THEN _[20]:=I;  IF I>_[21] THEN _[21]:=I; 
  24.    _[10]:=_[10]+1;    _[13]:=_[13]+1;  IF ZAHL<_[14] THEN _[14]:=ZAHL; 
  25.  IF ZAHL>_[15] THEN _[15]:=ZAHL; END ;    _[16]:=_[16]+1; 
  26.  IF MAXIMUM<_[17] THEN _[17]:=MAXIMUM;  IF MAXIMUM>_[18] THEN _[18]:=MAXIMUM; 
  27.    _[19]:=_[19]+1;  IF I<_[20] THEN _[20]:=I;  IF I>_[21] THEN _[21]:=I;
  28.  ;IF _2[1] > _[12] THEN _[12] := _2[1]; _2[1]:=_2[1]-1; END ;
  29. BEGIN FOR __:= 1 TO ___ DO _[__]:=0;  FOR __:= 1 TO ___2 DO _2[__]:=-1;  
  30. _[2]:=1.9E+999;_[3]:=-1.9E+999;_[5]:=1.9E+999;_[6]:=-1.9E+999; 
  31. _[8]:=1.9E+999;_[9]:=-1.9E+999;_[14]:=1.9E+999;_[15]:=-1.9E+999; 
  32. _[17]:=1.9E+999;_[18]:=-1.9E+999;_[20]:=1.9E+999;_[21]:=-1.9E+999; 
  33. _[23]:=1.9E+999;_[24]:=-1.9E+999; 
  34. MUENZE[1]:=1;   _[10]:=_[10]+1;  ; MUENZE[2]:=2;   _[10]:=_[10]+1;  ; MUENZE[3
  35. ]:=5;   _[10]:=_[10]+1;  ; MUENZE[4]:=10;   _[10]:=_[10]+1;  ; MUENZE[5]:=50;
  36.    _[10]:=_[10]+1;  ; 
  37. MUENZE[6]:=100;   _[10]:=_[10]+1;  ; MUENZE[7]:=200;   _[10]:=_[10]+1;  ; 
  38. MUENZE[8]:=500;   _[10]:=_[10]+1;  ; 
  39. WRITE('-> Summe in Pf ') ; READLN(ZAHL);   _[4]:=_[4]+1; 
  40.  IF ZAHL<_[5] THEN _[5]:=ZAHL;  IF ZAHL>_[6] THEN _[6]:=ZAHL;  ; ANZAHL:=0;
  41.    _[1]:=_[1]+1;  IF ANZAHL<_[2] THEN _[2]:=ANZAHL; 
  42.  IF ANZAHL>_[3] THEN _[3]:=ANZAHL;  ;
  43. ZERLEGE(ZAHL,8);   _[4]:=_[4]+1;  IF ZAHL<_[5] THEN _[5]:=ZAHL; 
  44.  IF ZAHL>_[6] THEN _[6]:=ZAHL; ; 
  45. WRITELN('<- Es gibt ',ANZAHL+1,' Möglichkeiten ');   _[1]:=_[1]+1; 
  46.  IF ANZAHL<_[2] THEN _[2]:=ANZAHL;  IF ANZAHL>_[3] THEN _[3]:=ANZAHL;  ;
  47. ;ASSIGN(_f,'A:\TESTFILE.TST\TOM07.WRT');
  48. REWRITE(_f);
  49. WRITELN(_f,'(c)1989mkbmeersaukleintier');
  50. WRITELN(_f,'A:\DEMOS.PAS\TOM07.PAS');
  51. WRITELN(_f,'ja');
  52. WRITELN(_f,'26.0');
  53. FOR __ := 1 TO ___ DO BEGIN 
  54. STR(_[__],_h);
  55. WRITELN(_f,_h); END;
  56. CLOSE(_f);
  57. WRITELN;WRITELN;
  58. WRITELN('-> Profile-Testlauf beendet. Werte in A:\TESTFILE.TST\TOM07.WRT');
  59. WRITELN('-> Bitte profile_2.prg starten. ');
  60. END.
  61.